home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / libcalls / mathieeesingbas.inc < prev    next >
Text File  |  1998-06-24  |  2KB  |  85 lines
  1. pattern IEEESPFix(_parm) is
  2.     push a6;
  3.     d0.l:=_parm;
  4.     a6:=MathIeeeSingBasBase; jsr [a6-30];
  5.     pop a6;
  6. endp;                                                            # IEEESPFIX
  7.  
  8. pattern IEEESPFlt(_integer) is
  9.     push a6;
  10.     d0.l:=_integer;
  11.     a6:=MathIeeeSingBasBase; jsr [a6-36];
  12.     pop a6;
  13. endp;                                                            # IEEESPFLT
  14.  
  15. pattern IEEESPCmp(_leftParm,_rightParm) is
  16.     push a6;
  17.     safe d0.l:=_leftParm; d1.l:=_rightParm;;
  18.     a6:=MathIeeeSingBasBase; jsr [a6-42];
  19.     pop a6;
  20. endp;                                                            # IEEESPCMP
  21.  
  22. pattern IEEESPTst(_parm) is
  23.     push a6;
  24.     d0.l:=_parm;
  25.     a6:=MathIeeeSingBasBase; jsr [a6-48];
  26.     pop a6;
  27. endp;                                                            # IEEESPTST
  28.  
  29. pattern IEEESPAbs(_parm) is
  30.     push a6;
  31.     d0.l:=_parm;
  32.     a6:=MathIeeeSingBasBase; jsr [a6-54];
  33.     pop a6;
  34. endp;                                                            # IEEESPABS
  35.  
  36. pattern IEEESPNeg(_parm) is
  37.     push a6;
  38.     d0.l:=_parm;
  39.     a6:=MathIeeeSingBasBase; jsr [a6-60];
  40.     pop a6;
  41. endp;                                                            # IEEESPNEG
  42.  
  43. pattern IEEESPAdd(_leftParm,_rightParm) is
  44.     push a6;
  45.     safe d0.l:=_leftParm; d1.l:=_rightParm;;
  46.     a6:=MathIeeeSingBasBase; jsr [a6-66];
  47.     pop a6;
  48. endp;                                                            # IEEESPADD
  49.  
  50. pattern IEEESPSub(_leftParm,_rightParm) is
  51.     push a6;
  52.     safe d0.l:=_leftParm; d1.l:=_rightParm;;
  53.     a6:=MathIeeeSingBasBase; jsr [a6-72];
  54.     pop a6;
  55. endp;                                                            # IEEESPSUB
  56.  
  57. pattern IEEESPMul(_leftParm,_rightParm) is
  58.     push a6;
  59.     safe d0.l:=_leftParm; d1.l:=_rightParm;;
  60.     a6:=MathIeeeSingBasBase; jsr [a6-78];
  61.     pop a6;
  62. endp;                                                            # IEEESPMUL
  63.  
  64. pattern IEEESPDiv(_dividend,_divisor) is
  65.     push a6;
  66.     safe d0.l:=_dividend; d1.l:=_divisor;;
  67.     a6:=MathIeeeSingBasBase; jsr [a6-84];
  68.     pop a6;
  69. endp;                                                            # IEEESPDIV
  70.  
  71. pattern IEEESPFloor(_parm) is
  72.     push a6;
  73.     d0.l:=_parm;
  74.     a6:=MathIeeeSingBasBase; jsr [a6-90];
  75.     pop a6;
  76. endp;                                                            # IEEESPFLOOR
  77.  
  78. pattern IEEESPCeil(_parm) is
  79.     push a6;
  80.     d0.l:=_parm;
  81.     a6:=MathIeeeSingBasBase; jsr [a6-96];
  82.     pop a6;
  83. endp;                                                            # IEEESPCEIL
  84.  
  85.